home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / gamble11.zip / BJACK.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-05-05  |  13KB  |  601 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     :LABEL001
  39.     INTEGER004 = 0
  40.     INTEGER005 = 0
  41.     STRING003 = "n"
  42.     STRING004 = "n"
  43.     STRING008 = "n"
  44.     STRING001 = 0
  45.     Cls
  46.     PrintLn "   @X4C┌─────────────────────────────────────────────────────────────────────┐@X07"
  47.     PrintLn "   @X4C│                        @X4EBlackjack (21)                               @X4C│@X07"
  48.     PrintLn "   @X4C│@X4E          by Brian Sweeney @ The Laser BBS (914.734.7045)            @X4C│@X07"
  49.     PrintLn "   @X4C│@XCA                 UNREGISTERED EVALUATION VERSION                     @X4C│@X07"
  50.     PrintLn "   @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
  51.     PrintLn "   @X4C│@X4F    You may bet as much time as you have today.  If you loose, the   @X4C│@X07"
  52.     PrintLn "   @X4C│@X4F  amount of time you bet will be deducted from your time limit for   @X4C│@X07"
  53.     PrintLn "   @X4C│@X4F  today.  If you win, the amount you bet will be added to the time   @X4C│@X07"
  54.     PrintLn "   @X4C│@X4F  you have remaining for THIS CALL ONLY.  When you logoff, you will  @X4C│@X07"
  55.     PrintLn "   @X4C│@X4F  lose any time you won unless you deposit it in the time bank.      @X4C│@X07"
  56.     PrintLn "   @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
  57.     PrintLn "   @X4C│    @X4FThe rules are simple.  The house must stay at 17 or higher and   @X4C│@X07"
  58.     PrintLn "   @X4C│  @X4Fmust hit at 16 or lower.  Whoever has the higher hand wins.  If    @X4C│@X07"
  59.     PrintLn "   @X4C│  @X4Fyou get over 21 you bust (and lose), in case of a tie the house    @X4C│@X07"
  60.     PrintLn "   @X4C│  @X4Fwins.                                                              @X4C│@X07"
  61.     PrintLn "   @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
  62.     PrintLn "   @X4C│               @X4EYou have @X4F@TIMELEFT:4@ @X4Eminutes remaining today                 @X4C│@X07"
  63.     PrintLn "   @X4C└─────────────────────────────────────────────────────────────────────┘@X07"
  64.     PrintLn 
  65.     InputStr "How many minutes do you wish to gamble (Q)uit", STRING001, 14, 2, "1234567890qQ", 8
  66.     If (STRING001 == "") Goto LABEL001
  67.     If (STRING001 == "Q") End
  68.     If (STRING001 == "QQ") End
  69.     If (STRING001 == "0") Goto LABEL001
  70.     If ((STRING008 == "n") && (STRING001 <> 30)) Goto LABEL017
  71.     If (STRING001 > MinLeft()) Then
  72.         PrintLn 
  73.         PrintLn "@X0EYou do not have that much time left!"
  74.         PrintLn 
  75.         Wait
  76.         Goto LABEL001
  77.     Endif
  78.     Cls
  79.     AnsiPos 1, 1
  80.     Print "@X70┌─────────┐@X07 "
  81.     AnsiPos 1, 2
  82.     Print "@X70│@X71#########@X70│@X07 "
  83.     AnsiPos 1, 3
  84.     Print "@X70│@X71#########@X70│@X07 "
  85.     AnsiPos 1, 4
  86.     Print "@X70│@X71#########@X70│@X07 "
  87.     AnsiPos 1, 5
  88.     Print "@X70│@X71#########@X70│@X07 "
  89.     AnsiPos 1, 6
  90.     Print "@X70│@X71#########@X70│@X07 "
  91.     AnsiPos 1, 7
  92.     Print "@X70└─────────┘@X07 "
  93.     AnsiPos 13, 1
  94.     Print "@X70┌─────────┐@X07"
  95.     AnsiPos 13, 2
  96.     Print "@X70│         │@X07"
  97.     AnsiPos 13, 3
  98.     Print "@X70│         │@X07"
  99.     AnsiPos 13, 4
  100.     Print "@X70│         │@X07"
  101.     AnsiPos 13, 5
  102.     Print "@X70│         │@X07"
  103.     AnsiPos 13, 6
  104.     Print "@X70│         │@X07"
  105.     AnsiPos 13, 7
  106.     Print "@X70└─────────┘@X07"
  107.     Gosub LABEL015
  108.     AnsiPos 14, 2
  109.     Print "@X74"
  110.     Print STRING009
  111.     AnsiPos 16, 4
  112.     Print "@X74"
  113.     Print STRING005
  114.     AnsiPos 22, 6
  115.     Print "@X74"
  116.     Print STRING009
  117.     AnsiPos 1, 8
  118.     Print "@X0EHouse Total: "
  119.     INTEGER003 = INTEGER001
  120.     STRING006 = STRING005
  121.     STRING010 = STRING009
  122.     Print INTEGER003
  123.     Gosub LABEL014
  124.     AnsiPos 1, 10
  125.     Print "@X70┌─────────┐@X07"
  126.     AnsiPos 1, 11
  127.     Print "@X70│         │@X07"
  128.     AnsiPos 1, 12
  129.     Print "@X70│         │@X07"
  130.     AnsiPos 1, 13
  131.     Print "@X70│         │@X07"
  132.     AnsiPos 1, 14
  133.     Print "@X70│         │@X07"
  134.     AnsiPos 1, 15
  135.     Print "@X70│         │@X07"
  136.     AnsiPos 1, 16
  137.     Print "@X70└─────────┘@X07"
  138.     AnsiPos 2, 11
  139.     Print "@X74"
  140.     Print STRING009
  141.     AnsiPos 4, 13
  142.     Print "@X74"
  143.     Print STRING005
  144.     AnsiPos 10, 15
  145.     Print "@X74"
  146.     Print STRING009
  147.     INTEGER002 = INTEGER001
  148.     Gosub LABEL014
  149.     AnsiPos 13, 10
  150.     Print "@X70┌─────────┐@X07"
  151.     AnsiPos 13, 11
  152.     Print "@X70│         │@X07"
  153.     AnsiPos 13, 12
  154.     Print "@X70│         │@X07"
  155.     AnsiPos 13, 13
  156.     Print "@X70│         │@X07"
  157.     AnsiPos 13, 14
  158.     Print "@X70│         │@X07"
  159.     AnsiPos 13, 15
  160.     Print "@X70│         │@X07"
  161.     AnsiPos 13, 16
  162.     Print "@X70└─────────┘@X07"
  163.     AnsiPos 14, 11
  164.     Print "@X74"
  165.     Print STRING009
  166.     AnsiPos 16, 13
  167.     Print "@X74"
  168.     Print STRING005
  169.     AnsiPos 22, 15
  170.     Print "@X74"
  171.     Print STRING009
  172.     INTEGER002 = INTEGER002 + INTEGER001
  173.     AnsiPos 1, 17
  174.     Print "@X0EPlayer Total: "
  175.     Print INTEGER002
  176.     If ((STRING003 == "y") && (INTEGER002 < 12)) Then
  177.         Print " or "
  178.         PrintLn INTEGER002 + 10
  179.     Else
  180.         PrintLn "                            "
  181.     Endif
  182.     If ((STRING003 == "y") && (INTEGER002 == 11)) Then
  183.         STRING001 = STRING001 * 2
  184.         PrintLn 
  185.         Print "@X0ABLACKJACK!  You win "
  186.         Print STRING001
  187.         PrintLn " minutes!"
  188.         AdjTime STRING001
  189.         PrintLn 
  190.         Wait
  191.         Goto LABEL001
  192.     Endif
  193.     :LABEL002
  194.     AnsiPos 1, 19
  195.     Print "                                                                       "
  196.     AnsiPos 1, 19
  197.     InputStr "(H)it, (S)tand, (D)ouble down, (?=Help)", STRING007, 14, 1, "HhSsDd?", 8
  198.     If (STRING007 == "H") Goto LABEL003
  199.     If (STRING007 == "S") Goto LABEL005
  200.     If (STRING007 == "D") Goto LABEL006
  201.     If (STRING007 == "?") Goto LABEL011
  202.     If (STRING007 == "") Goto LABEL002
  203.     :LABEL003
  204.     If (STRING008 == "n") Gosub LABEL016
  205.     Gosub LABEL014
  206.     INTEGER006 = (INTEGER004 - 1) * 12 + 1
  207.     AnsiPos INTEGER006, 10
  208.     Print "@X70┌─────────┐@X07"
  209.     AnsiPos INTEGER006, 11
  210.     Print "@X70│         │@X07"
  211.     AnsiPos INTEGER006, 12
  212.     Print "@X70│         │@X07"
  213.     AnsiPos INTEGER006, 13
  214.     Print "@X70│         │@X07"
  215.     AnsiPos INTEGER006, 14
  216.     Print "@X70│         │@X07"
  217.     AnsiPos INTEGER006, 15
  218.     Print "@X70│         │@X07"
  219.     AnsiPos INTEGER006, 16
  220.     Print "@X70└─────────┘@X07"
  221.     AnsiPos INTEGER006 + 1, 11
  222.     Print "@X74"
  223.     Print STRING009
  224.     AnsiPos INTEGER006 + 3, 13
  225.     Print "@X74"
  226.     Print STRING005
  227.     AnsiPos INTEGER006 + 9, 15
  228.     Print "@X74"
  229.     Print STRING009
  230.     INTEGER002 = INTEGER002 + INTEGER001
  231.     AnsiPos 15, 17
  232.     Print "@X0E"
  233.     Print INTEGER002
  234.     If ((STRING003 == "y") && (INTEGER002 < 12)) Then
  235.         Print " or "
  236.         PrintLn INTEGER002 + 10
  237.     Else
  238.         PrintLn "                         "
  239.     Endif
  240.     If (INTEGER002 > 21) Goto LABEL010
  241.     If (INTEGER002 == 21) Goto LABEL005
  242.     :LABEL004
  243.     AnsiPos 1, 19
  244.     Print "@X0E                                                         "
  245.     AnsiPos 1, 19
  246.     InputStr "(H)it, (S)tand (?=Help)", STRING007, 14, 1, "HhSs?", 8
  247.     If (STRING007 == "H") Goto LABEL003
  248.     If (STRING007 == "S") Goto LABEL005
  249.     If (STRING007 == "?") Goto LABEL012
  250.     If (STRING007 == "") Goto LABEL004
  251.     :LABEL005
  252.     If (STRING008 == "n") Gosub LABEL016
  253.     If ((INTEGER002 < 12) && (STRING003 == "y")) INTEGER002 = INTEGER002 + 10
  254.     Gosub LABEL015
  255.     AnsiPos 1, 2
  256.     Print "@X70│         │@X07"
  257.     AnsiPos 1, 3
  258.     Print "@X70│         │@X07"
  259.     AnsiPos 1, 4
  260.     Print "@X70│         │@X07"
  261.     AnsiPos 1, 5
  262.     Print "@X70│         │@X07"
  263.     AnsiPos 1, 6
  264.     Print "@X70│         │@X07"
  265.     AnsiPos 2, 2
  266.     Print "@X74"
  267.     Print STRING009
  268.     AnsiPos 4, 4
  269.     Print "@X74"
  270.     Print STRING005
  271.     AnsiPos 10, 6
  272.     Print "@X74"
  273.     Print STRING009
  274.     INTEGER003 = INTEGER003 + INTEGER001
  275.     AnsiPos 14, 8
  276.     Print "@X0E"
  277.     Print INTEGER003
  278.     If ((INTEGER003 == 11) && (STRING004 == "y")) INTEGER003 = INTEGER003 + 10
  279.     If (INTEGER003 > 16) Then
  280.         Goto LABEL008
  281.     ElseIf (INTEGER003 < 17) Then
  282.         Goto LABEL007
  283.     ElseIf (INTEGER003 >= INTEGER002) Then
  284.         Goto LABEL008
  285.     Endif
  286.     :LABEL006
  287.     If (STRING008 == "n") Gosub LABEL016
  288.     If (MinLeft() < STRING001 * 2) Then
  289.         PrintLn 
  290.         PrintLn 
  291.         PrintLn "@X0EYou do not have that much time left!"
  292.         Goto LABEL002
  293.     Endif
  294.     STRING001 = STRING001 * 2
  295.     Gosub LABEL014
  296.     AnsiPos 25, 10
  297.     Print "@X70┌─────────┐@X07"
  298.     AnsiPos 25, 11
  299.     Print "@X70│         │@X07"
  300.     AnsiPos 25, 12
  301.     Print "@X70│         │@X07"
  302.     AnsiPos 25, 13
  303.     Print "@X70│         │@X07"
  304.     AnsiPos 25, 14
  305.     Print "@X70│         │@X07"
  306.     AnsiPos 25, 15
  307.     Print "@X70│         │@X07"
  308.     AnsiPos 25, 16
  309.     Print "@X70└─────────┘@X07"
  310.     AnsiPos 26, 11
  311.     Print "@X74"
  312.     Print STRING009
  313.     AnsiPos 28, 13
  314.     Print "@X74"
  315.     Print STRING005
  316.     AnsiPos 34, 15
  317.     Print "@X74"
  318.     Print STRING009
  319.     INTEGER002 = INTEGER002 + INTEGER001
  320.     AnsiPos 15, 17
  321.     Print "@X0E"
  322.     Print INTEGER002
  323.     Print "                 "
  324.     If (INTEGER002 > 21) Goto LABEL010
  325.     Goto LABEL005
  326.     :LABEL007
  327.     If (STRING008 == "n") Gosub LABEL016
  328.     Gosub LABEL015
  329.     INTEGER006 = (INTEGER005 - 1) * 12 + 1
  330.     AnsiPos INTEGER006, 1
  331.     Print "@X70┌─────────┐@X07"
  332.     AnsiPos INTEGER006, 2
  333.     Print "@X70│         │@X07"
  334.     AnsiPos INTEGER006, 3
  335.     Print "@X70│         │@X07"
  336.     AnsiPos INTEGER006, 4
  337.     Print "@X70│         │@X07"
  338.     AnsiPos INTEGER006, 5
  339.     Print "@X70│         │@X07"
  340.     AnsiPos INTEGER006, 6
  341.     Print "@X70│         │@X07"
  342.     AnsiPos INTEGER006, 7
  343.     Print "@X70└─────────┘@X07"
  344.     AnsiPos INTEGER006 + 1, 2
  345.     Print "@X74"
  346.     Print STRING009
  347.     AnsiPos INTEGER006 + 3, 4
  348.     Print "@X74"
  349.     Print STRING005
  350.     AnsiPos INTEGER006 + 9, 6
  351.     Print "@X74"
  352.     Print STRING009
  353.     INTEGER003 = INTEGER003 + INTEGER001
  354.     AnsiPos 14, 8
  355.     Print "@X0E"
  356.     Print INTEGER003
  357.     If (INTEGER003 > 21) Then
  358.         Goto LABEL009
  359.     ElseIf (INTEGER003 > 16) Then
  360.         Goto LABEL008
  361.     ElseIf (INTEGER003 < 17) Then
  362.         Goto LABEL007
  363.     ElseIf (INTEGER003 >= INTEGER002) Then
  364.         Goto LABEL008
  365.     Endif
  366.     :LABEL008
  367.     AnsiPos 1, 21
  368.     Print "@X0CHouse: "
  369.     Print INTEGER003
  370.     Print "   @X0APlayer: "
  371.     PrintLn INTEGER002
  372.     PrintLn 
  373.     If (INTEGER003 >= INTEGER002) Then
  374.         Print "@X0CYou lose "
  375.         Print STRING001
  376.         PrintLn " minutes."
  377.         AdjTime -STRING001
  378.     ElseIf (INTEGER003 < INTEGER002) Then
  379.         Print "You win "
  380.         Print STRING001
  381.         PrintLn " minutes"
  382.         AdjTime STRING001
  383.     Endif
  384.     Goto LABEL013
  385.     :LABEL009
  386.     AnsiPos 1, 21
  387.     PrintLn "@X0CThe house busts."
  388.     PrintLn 
  389.     Print "@X0AYou win "
  390.     Print STRING001
  391.     PrintLn " minutes"
  392.     AdjTime STRING001
  393.     Goto LABEL013
  394.     :LABEL010
  395.     If (STRING008 == "n") Gosub LABEL016
  396.     AnsiPos 1, 21
  397.     PrintLn "@X0AYou have busted!"
  398.     PrintLn 
  399.     Print "@X0CYou lose "
  400.     Print STRING001
  401.     PrintLn " minutes"
  402.     AdjTime -STRING001
  403.     Goto LABEL013
  404.     :LABEL011
  405.     STRING007 = ""
  406.     SaveScrn
  407.     Cls
  408.     PrintLn "   @X4C┌─────────────────────────────────────────────────────────────────────┐@X07"
  409.     PrintLn "   @X4C│                        @X4EBlackjack - Help                             @X4C│@X07"
  410.     PrintLn "   @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
  411.     PrintLn "   @X4C│@X4F    You must get as close to 21 as you can w/o going over.  You may  @X4C│@X07"
  412.     PrintLn "   @X4C│@X4F  Hit, Stay or Double down:                                          @X4C│@X07"
  413.     PrintLn "   @X4C│@X4F                                                                     @X4C│@X07"
  414.     PrintLn "   @X4C│@X4F  (H)it - Draw another card, the value of this card will be added to @X4C│@X07"
  415.     PrintLn "   @X4C│@X4F          your total points, if it equals more than 21 you lose.     @X4C│@X07"
  416.     PrintLn "   @X4C│                                                                     │@X07"
  417.     PrintLn "   @X4C│  @X4F(S)tand - Stay with your current hand.  The house will then draw,  @X4C│@X07"
  418.     PrintLn "   @X4C│  @X4F          hitting when it has 16 or less and staying when it has   @X4C│@X07"
  419.     PrintLn "   @X4C│  @X4F          17 or more.                                              @X4C│@X07"
  420.     PrintLn "   @X4C│                                                                     │@X07"
  421.     PrintLn "   @X4C│  @X4F(D)ouble down - Double your bet, draw one more card and then stay. @X4C│@X07"
  422.     PrintLn "   @X4C│  @X4F                This is reccomended if you have 11 and may only be @X4C│@X07"
  423.     PrintLn "   @X4C│@X4F                  done when you have 2 cards.                        @X4C│@X07"
  424.     PrintLn "   @X4C└─────────────────────────────────────────────────────────────────────┘@X07"
  425.     Wait
  426.     RestScrn
  427.     Goto LABEL002
  428.     :LABEL012
  429.     STRING007 = ""
  430.     SaveScrn
  431.     Cls
  432.     PrintLn "   @X4C┌─────────────────────────────────────────────────────────────────────┐@X07"
  433.     PrintLn "   @X4C│                        @X4EBlackjack - Help                             @X4C│@X07"
  434.     PrintLn "   @X4C│@X40─────────────────────────────────────────────────────────────────────@X4C│@X07"
  435.     PrintLn "   @X4C│@X4F    You must get as close to 21 as you can w/o going over.  You may  @X4C│@X07"
  436.     PrintLn "   @X4C│@X4F  Hit or Stay:                                                       @X4C│@X07"
  437.     PrintLn "   @X4C│@X4F                                                                     @X4C│@X07"
  438.     PrintLn "   @X4C│@X4F  (H)it - Draw another card, the value of this card will be added to @X4C│@X07"
  439.     PrintLn "   @X4C│@X4F          your total points, if it equals more than 21 you lose.     @X4C│@X07"
  440.     PrintLn "   @X4C│                                                                     │@X07"
  441.     PrintLn "   @X4C│  @X4F(S)tand - Stay with your current hand.  The house will then draw,  @X4C│@X07"
  442.     PrintLn "   @X4C│  @X4F          hitting when it has 16 or less and staying when it has   @X4C│@X07"
  443.     PrintLn "   @X4C│  @X4F          17 or more.                                              @X4C│@X07"
  444.     PrintLn "   @X4C└─────────────────────────────────────────────────────────────────────┘@X07"
  445.     Wait
  446.     RestScrn
  447.     Goto LABEL004
  448.     :LABEL013
  449.     AnsiPos 1, 24
  450.     InputYN "Play again", STRING002, 14
  451.     If ((STRING002 == "Y") || (STRING002 == "y")) Goto LABEL001
  452.     If ((STRING002 == "N") || (STRING002 == "n")) End
  453.     :LABEL014
  454.     INTEGER004 = INTEGER004 + 1
  455.     INTEGER001 = Random(12) + 1
  456.     If (INTEGER001 == "1") Then
  457.         STRING005 = "Ace"
  458.         STRING009 = "A"
  459.         STRING003 = "y"
  460.     Endif
  461.     If (INTEGER001 == "2") STRING005 = " Two"
  462.     If (INTEGER001 == "3") STRING005 = "Three"
  463.     If (INTEGER001 == "4") STRING005 = "Four"
  464.     If (INTEGER001 == "5") STRING005 = "Five"
  465.     If (INTEGER001 == "6") STRING005 = " Six"
  466.     If (INTEGER001 == "7") STRING005 = "Seven"
  467.     If (INTEGER001 == "8") STRING005 = "Eight"
  468.     If (INTEGER001 == "9") STRING005 = "Nine"
  469.     If (INTEGER001 == "10") STRING005 = " Ten"
  470.     If (INTEGER001 == "11") STRING005 = "Jack"
  471.     If (INTEGER001 == "12") STRING005 = "Queen"
  472.     If (INTEGER001 == "13") STRING005 = "King"
  473.     If (INTEGER001 == "2") STRING009 = "2"
  474.     If (INTEGER001 == "3") STRING009 = "3"
  475.     If (INTEGER001 == "4") STRING009 = "4"
  476.     If (INTEGER001 == "5") STRING009 = "5"
  477.     If (INTEGER001 == "6") STRING009 = "6"
  478.     If (INTEGER001 == "7") STRING009 = "7"
  479.     If (INTEGER001 == "8") STRING009 = "8"
  480.     If (INTEGER001 == "9") STRING009 = "9"
  481.     If (INTEGER001 == "10") STRING009 = "10"
  482.     If (INTEGER001 == "11") STRING009 = "J"
  483.     If (INTEGER001 == "12") STRING009 = "Q"
  484.     If (INTEGER001 == "13") STRING009 = "K"
  485.     If (INTEGER001 == "11") INTEGER001 = "10"
  486.     If (INTEGER001 == "12") INTEGER001 = "10"
  487.     If (INTEGER001 == "13") INTEGER001 = "10"
  488.     Return
  489.     :LABEL015
  490.     INTEGER005 = INTEGER005 + 1
  491.     INTEGER001 = Random(12) + 1
  492.     If (INTEGER001 == "1") Then
  493.         STRING005 = "Ace"
  494.         STRING009 = "A"
  495.         STRING004 = "y"
  496.     Endif
  497.     If (INTEGER001 == "2") STRING005 = " Two"
  498.     If (INTEGER001 == "3") STRING005 = "Three"
  499.     If (INTEGER001 == "4") STRING005 = "Four"
  500.     If (INTEGER001 == "5") STRING005 = "Five"
  501.     If (INTEGER001 == "6") STRING005 = " Six"
  502.     If (INTEGER001 == "7") STRING005 = "Seven"
  503.     If (INTEGER001 == "8") STRING005 = "Eight"
  504.     If (INTEGER001 == "9") STRING005 = "Nine"
  505.     If (INTEGER001 == "10") STRING005 = " Ten"
  506.     If (INTEGER001 == "11") STRING005 = "Jack"
  507.     If (INTEGER001 == "12") STRING005 = "Queen"
  508.     If (INTEGER001 == "13") STRING005 = "King"
  509.     If (INTEGER001 == "2") STRING009 = "2"
  510.     If (INTEGER001 == "3") STRING009 = "3"
  511.     If (INTEGER001 == "4") STRING009 = "4"
  512.     If (INTEGER001 == "5") STRING009 = "5"
  513.     If (INTEGER001 == "6") STRING009 = "6"
  514.     If (INTEGER001 == "7") STRING009 = "7"
  515.     If (INTEGER001 == "8") STRING009 = "8"
  516.     If (INTEGER001 == "9") STRING009 = "9"
  517.     If (INTEGER001 == "10") STRING009 = "10"
  518.     If (INTEGER001 == "11") STRING009 = "J"
  519.     If (INTEGER001 == "12") STRING009 = "Q"
  520.     If (INTEGER001 == "13") STRING009 = "K"
  521.     If (INTEGER001 == "11") INTEGER001 = "10"
  522.     If (INTEGER001 == "12") INTEGER001 = "10"
  523.     If (INTEGER001 == "13") INTEGER001 = "10"
  524.     Return
  525.     :LABEL016
  526.     AnsiPos 1, 21
  527.     Print "@X0FPausing for 5 seconds to encourage registration..."
  528.     Delay 91
  529.     AnsiPos 1, 21
  530.     Print "                                                            "
  531.     Return
  532.     :LABEL017
  533.     AnsiPos 1, 21
  534.     PrintLn "@X0FIn this unregistered version you may only bet 30 minutes each time."
  535.     Wait
  536.     Goto LABEL001
  537.  
  538. ;------------------------------------------------------------------------------
  539. ;
  540. ; Usage report (before postprocessing)
  541. ;
  542. ; ■ Statements used :
  543. ;
  544. ;    3       End
  545. ;    4       Cls
  546. ;    5       Wait
  547. ;    57      Goto 
  548. ;    87      Let 
  549. ;    128     Print 
  550. ;    73      PrintLn 
  551. ;    96      If 
  552. ;    5       AdjTime 
  553. ;    3       InputStr 
  554. ;    1       InputYN 
  555. ;    12      Gosub 
  556. ;    3       Return
  557. ;    1       Delay 
  558. ;    92      AnsiPos 
  559. ;    2       SaveScrn
  560. ;    2       RestScrn
  561. ;
  562. ;
  563. ; ■ Functions used :
  564. ;
  565. ;    2       -
  566. ;    5       *
  567. ;    21      +
  568. ;    2       -
  569. ;    87      ==
  570. ;    1       <>
  571. ;    7       <
  572. ;    6       >
  573. ;    3       >=
  574. ;    16      !
  575. ;    6       &&
  576. ;    2       ||
  577. ;    2       Random()
  578. ;    2       MinLeft()
  579. ;
  580. ;------------------------------------------------------------------------------
  581. ;
  582. ; Analysis flags : A
  583. ;
  584. ; A - Adjust online time remaining ■ 5
  585. ;     Program modify the amount of online time remaining, this may
  586. ;     be a way to bypass time limits
  587. ;     ■ Search for : ADJTIME
  588. ;
  589. ;------------------------------------------------------------------------------
  590. ;
  591. ; Postprocessing report
  592. ;
  593. ;    0       For/Next
  594. ;    0       While/EndWhile
  595. ;    16      If/Then or If/Then/Else
  596. ;    0       Select Case
  597. ;
  598. ;------------------------------------------------------------------------------
  599. ;                 AEGiS Corp - Break the routines, code against the machines!
  600. ;------------------------------------------------------------------------------
  601.